home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / arug / arug 29 / comua (.txt) < prev    next >
AmigaBASIC Source Code  |  1994-01-27  |  17KB  |  727 lines
  1. inizio:      
  2.  ON ERROR GOTO ero
  3.  PRINT:PRINT:PRINT
  4.  PRINT:INPUT"    A=Alta risoluzione  R=SYSTEM  B=BBS  enter=inizio programma ",wx$
  5.  IF UCASE$(wx$)="A"THEN GOTO inizoo
  6.  IF UCASE$(wx$)="R" THEN SYSTEM 
  7.  IF UCASE$(wx$)="B" THEN LOAD"minibbs"
  8.  fin%=0:GOSUB fines1:GOTO apri
  9. inizoo:
  10.  fin%=1:GOSUB fines2
  11. apri: 
  12.  WIDTH 79,20
  13.  fi$="COMLOG":OPEN fi$ AS #4 LEN=61
  14.  FIELD #4,10 AS d$,8 AS o$,10 AS c$,7 AS r$,13 AS q$,9 AS n$,4 AS f$
  15. dpsav:                   
  16.  FOR j%=1 TO 500:GET #4,j%:IF MID$(o$,1,1)="*"THEN LET k%=j%:GOTO indice
  17.  NEXT j%
  18. indice:
  19.  IF k% < 4 THEN GOSUB nonce
  20.  LOCATE 1,1:CLS
  21.  PRINT :PRINT "        ATTENDERE   !!!!!!!!!"
  22.  GOSUB altro
  23.  
  24. ilmenu:
  25.   
  26.   MENU 1,0,1,"Packet"
  27.   MENU 1,1,1,"Packet"
  28.   MENU 1,2,1,"Vhf on"
  29.   MENU 1,3,1,"Vhf off"
  30.   MENU 1,4,1,"Connect"
  31.   MENU 1,5,1,"Disconn"
  32.   MENU 1,6,1,"Mheard"
  33.   MENU 1,7,1,"Cstatus"
  34.   MENU 1,8,1,"cmd:    "
  35.   MENU 1,9,1,"Monit1"
  36.   MENU 1,10,1,"Monit4"
  37.   MENU 1,11,1,"Monit6"
  38.   MENU 1,12,1,"Monit"
  39.   MENU 1,13,1,"Trcon"
  40.   MENU 1,14,1,"Trcoff"
  41.   MENU 1,15,1,"Daytime"
  42.   MENU 1,16,1,"Msg in"
  43.   MENU 1,17,1,"Msg out"
  44.   MENU 1,18,1,"Pass off"
  45.   MENU 1,19,1,"Pass on"
  46.   
  47.   MENU 2,0,1," Rtty"
  48.   MENU 2,1,1,"Baudot"
  49.   MENU 2,2,1,"Ascii "
  50.   MENU 2,3,1,"Rev on "
  51.   MENU 2,4,1,"Rev off"
  52.   MENU 2,5,1,"Wide on"
  53.   MENU 2,6,1,"Wide off"
  54.   MENU 2,7,1,"Xmit    "
  55.   MENU 2,8,1,"Rcve    "
  56.   MENU 2,9,1,"Baud up"
  57.   MENU 2,10,1,"Baud dwn"
  58.   MENU 2,11,1,"Ab 150"
  59.   MENU 2,12,1,"Ab 200"
  60.   MENU 2,13,1,"Ab 300"
  61.   MENU 2,14,1,"Ab 600"
  62.   MENU 2,15,1,"Conv   "
  63.   MENU 2,16,1,"Mode ? "
  64.   MENU 2,17,1,"Hello  "
  65.   MENU 2,18,1,"Rig hr "
  66.   MENU 2,19,1,"Thanks "
  67.   
  68.   
  69.        
  70.   MENU 3,0,1,"Morse"
  71.   MENU 3,1,1,"Morse "
  72.   MENU 3,2,1,"Xmit   "
  73.   MENU 3,3,1,"Receive"
  74.   MENU 3,4,1,"Lock rx"
  75.   MENU 3,5,1,"Unlock"
  76.   MENU 3,6,1,"store ch"
  77.   MENU 3,7,1,"store off"
  78.   MENU 3,8,1,"10 wpm  "
  79.   MENU 3,9,1,"15 wpm  "
  80.   MENU 3,10,1,"20 wpm  "
  81.   MENU 3,11,1,"25 wpm  "
  82.   MENU 3,12,1,"30 wpm  "
  83.   MENU 3,13,1,"Cq      "
  84.   MENU 3,14,1,"xx de k "
  85.   MENU 3,15,1,"Tk rs qt"
  86.   MENU 3,16,1,"risp a cq"
  87.   MENU 3,17,1,"Free "
  88.   MENU 3,18,1,"Free "
  89.   MENU 3,19,1,"End Qso"
  90.   
  91.   MENU 4,0,1,"Facsimile"
  92.   MENU 4,1,1,"Facsimile"
  93.   MENU 4,2,1,"Faxn off"
  94.   MENU 4,3,1,"Faxn on"
  95.   MENU 4,4,1,"Lock    "
  96.   MENU 4,5,1,"Prc off"
  97.   MENU 4,6,1,"Prc on"
  98.   MENU 4,7,1,"Prf off"
  99.   MENU 4,8,1,"Prf on"
  100.   MENU 4,9,1,"Prout off"
  101.   MENU 4,10,1,"Prout on"
  102.   MENU 4,11,1,"Signal"
  103.   MENU 4,12,1,"Ok     "
  104.   MENU 4,13,1,"Binv u"
  105.   MENU 4,14,1,"Binv d"
  106.   MENU 4,15,1,"Run prog"
  107.                
  108.   MENU 5,0,1,"Amtor"
  109.   MENU 5,1,1,"Amtor"
  110.   MENU 5,2,1,"Free"
  111.   MENU 5,3,1,"Free"
  112.   MENU 5,4,1,"Arq"
  113.   MENU 5,5,1,"Alist"
  114.   MENU 5,6,1,"Fec"
  115.   MENU 5,7,1,"Achg"
  116.   MENU 5,8,1,"Conv"
  117.   MENU 5,9,1,"Xmit"
  118.   MENU 5,10,1,"Restart"
  119.   MENU 5,11,1,"Tc clear"
  120.   MENU 5,12,1,"Free"
  121.   MENU 5,13,1,"Free"
  122.   MENU 5,14,1,"Free"
  123.   MENU 5,15,1,"Free"
  124.        
  125.   MENU 6,0,1,"Parameters"
  126.   MENU 6,1,1,"Serial port"
  127.   MENU 6,2,1,"Special ch"
  128.   MENU 6,3,1,"Facsimile"
  129.   MENU 6,4,1,"Identificat"
  130.   MENU 6,5,1,"Link status"
  131.   MENU 6,6,1,"Monitor"
  132.   MENU 6,7,1,"Cw rtty amt"
  133.   MENU 6,8,1,"Timing"
  134.   MENU 6,9,1,"All All"
  135.   MENU 6,10,1,"Help   "
  136.   MENU 6,11,1,"CLS    "
  137.   MENU 6,12,1,"Rcve asc"
  138.   MENU 6,13,1,"Send asc"
  139.   MENU 6,14,1,"Echo on "
  140.   MENU 6,15,1,"Echo off"
  141.   MENU 6,16,1,"Close list"
  142.   MENU 6,17,1,"Run prog"
  143.   MENU 6,18,1,"System"
  144.   MENU 6,19,1,"Save prg"
  145.  
  146.   MENU 7,0,1,"My log  "
  147.   MENU 7,1,1,"Start time"
  148.   MENU 7,2,1,"Mode-fq   "
  149.   MENU 7,3,1,"Call      "
  150.   MENU 7,4,1,"Name      "
  151.   MENU 7,5,1,"Qth       "
  152.   MENU 7,6,1,"His Rst   "
  153.   MENU 7,7,1,"My Rst    "  
  154.   MENU 7,8,1,"End  time"
  155.   MENU 7,9,1,"Read line"
  156.   MENU 7,10,1,"Corr line"
  157.   MENU 7,11,1,"Save line"
  158.   MENU 7,12,1,"Dele line"
  159.   MENU 7,13,1,"59  59  "
  160.   MENU 7,14,1,"599 599  "
  161.   MENU 7,15,1,"Read log"
  162.   MENU 7,16,1,"Print log"
  163.   MENU 7,17,1,"Read file"
  164.   MENU 7,18,1,"Info     "
  165.   MENU 7,19,1,"List Ram "
  166.   
  167.   MENU ON:CLS:GOSUB tempo
  168.   PRINT :PRINT "      COMUA V1.2 di I0GO, G. Riera Via Tevere 15, 00198 ROMA, tel.858263"
  169.   PRINT :PRINT :CLOSE #1:OPEN"com1:1200,n,8,1,xon" AS 1:GOSUB pa15
  170. klin:
  171.   CLOSE #1:OPEN"com1:1200,n,8,1,xon" AS 1
  172.   WHILE 1
  173.   WHILE LOC(1)<>0  
  174.   u$=INPUT$(1,1):COLOR 1:PRINT u$;:COLOR 1
  175.   IF fl%=1 THEN PRINT #3,u$;
  176.   WEND
  177.   i$=INKEY$:IF fl%=2 THEN i$=INPUT$(1,3)
  178.   IF i$<>""THEN COLOR 3:PRINT  #1,i$;:PRINT i$; 
  179.   IF fl%<>2 THEN GOTO klin1
  180.   IF EOF(3)=-1 THEN GOSUB chiude:fl%=0
  181. klin1:  
  182.   ON MENU GOSUB cerca
  183.   WEND
  184.  GOTO indice
  185. nw1:
  186.   WINDOW 3,"COMUA/Interact",(1,1)-(625,50),8,2
  187.   COLOR 3:WINDOW OUTPUT 3:RETURN
  188.  
  189. nw2:
  190.   WINDOW OUTPUT 2:COLOR 1:WINDOW CLOSE 3
  191.   RETURN
  192.  
  193. cerca:
  194.   me1=MENU(0):me2=MENU(1)
  195.   ON me1 GOSUB pack,rty,mor,fac,amt,para,mylog
  196.   RETURN
  197.  
  198. pack:
  199.  ON me2 GOSUB pa1,pa2,pa3,pa4,pa5,pa6,pa7,pa8,pa9,pa10,pa11,pa12,pa13,pa14,pa15,pa16,pa17,pa18,pa19
  200.  RETURN
  201.  
  202. rty:
  203.  ON me2 GOSUB rt1,rt2,rt3,rt4,rt5,rt6,rt7,rt8,rt9,rt10,rt11,rt12,rt13,rt14,rt15,rt16,rt17,rt18,rt19
  204.  RETURN 
  205.  
  206. mor:
  207.  ON me2 GOSUB mo1,mo2,mo3,mo4,mo5,mo6,mo7,mo8,mo9,mo10,mo11,mo12,mo13,mo14,mo15,mo16,mo17,mo18,mo19
  208.  RETURN
  209.  
  210. fac:
  211.  ON me2 GOSUB fa1,fa2,fa3,fa4,fa5,fa6,fa7,fa8,fa9,fa10,fa11,fa12,fa13,fa14,fa15
  212.  RETURN 
  213.  
  214. amt: 
  215.  ON me2 GOSUB am1,am2,am3,am4,am5,am6,am7,am8,am9,am10,am11,am12,am13,am14,am15
  216.  RETURN
  217.  
  218. para:
  219.  ON me2 GOSUB pr1,pr2,pr3,pr4,pr5,pr6,pr7,pr8,pr9,pr10,pr11,pr12,pr13,pr14,pr15,pr16,pr17,pr18,pr19
  220.  RETURN
  221.  
  222. mylog:
  223.  COLOR 3,0
  224.  ON me2 GOSUB lo1,lo2,lo3,lo4,lo5,lo6,lo7,lo8,lo9,lo10,lo11,lo12,lo13,lo14,lo15,lo16,lo17,lo18,lo19
  225.  COLOR 1,0:RETURN
  226.  
  227. pa1:
  228.   in$="PA":GOSUB trt:in$="hb 1200":GOTO trt
  229. pa2:
  230.   in$="V ON":GOSUB trs:in$="hb 1200":GOTO trs
  231. pa3:
  232.   in$="V OFF":GOSUB trs:in$="hb 300":GOTO trs
  233. pa4:
  234.   in$="C "+cal$:PRINT "Connetto: ";cal$:GOTO trt
  235. pa5:
  236.   in$="D":GOTO trt
  237. pa6:
  238.   in$="MH":GOTO trs
  239. pa7:
  240.   in$="CS":GOTO trs
  241. pa8:
  242.   in$="":GOTO trt
  243. pa9:
  244.   in$="M 1":GOTO trs
  245. pa10:
  246.   in$="M 4":GOTO trs
  247. pa11:
  248.   in$="M 6":GOTO trs
  249. pa12:
  250.   in$="M":GOTO trs
  251. pa13:
  252.   in$="TRAC ON":GOTO trs
  253. pa14:
  254.   in$="TRAC OFF":GOTO trs
  255. pa15:
  256.   GOSUB datai:in$="DA "+dz$:GOTO trs
  257. pa16:
  258.    COLOR 3,0:PRINT :INPUT"",mn$:COLOR 1,0:RETURN
  259. pa17:
  260.    in$=mn$:GOSUB c1:GOTO trs
  261. pa18:
  262.     in$="PASSA OFF":GOTO trs
  263. pa19:
  264.     in$="PASSA ON":GOTO trs
  265.     
  266.     
  267. rt1:
  268.   in$="BA":GOSUB trt:in$="RXR OFF":GOSUB trs:in$="RB 50":GOTO trs
  269. rt2:
  270.   in$="AS":GOTO trs
  271. rt3:
  272.   in$="RXR ON":GOTO trs
  273. rt4:
  274.   in$="RXR OFF":GOTO trs
  275. rt5:
  276.   in$="WI ON":GOTO trs
  277. rt6:
  278.   in$="WI OFF":GOTO trs
  279. rt7:
  280.   in$="X":GOTO trs
  281. rt8:
  282.   in$="R":GOTO trs
  283. rt9:
  284.   in$="RB U":GOTO trs
  285. rt10:
  286.   in$="RB D":GOTO trs
  287. rt11:
  288.   in$="AB 150":GOTO trs
  289. rt12:
  290.   in$="AB 200":GOTO trs
  291. rt13:
  292.   in$="AB 300":GOTO trs
  293. rt14:
  294.   in$="AB 600":GOTO trs
  295. rt15:
  296.   in$="conv":GOTO trs
  297. rt16:
  298.   in$="O":GOTO trs
  299. rt17:
  300.   in$="Hello  nice to contact you - name here Joe and qth Rome >>":GOSUB c1:GOTO trs
  301. rt18:
  302.   in$="Rig hr ts430s amiga 500  pk232 ant dipole>>":GOSUB c1:GOTO trs  
  303. rt19:
  304.   in$="Thanks for nice contact hope to meet you agn 73 >>":GOSUB c1:GOTO trs
  305.  
  306. mo1:
  307.   in$="MO":GOTO trt
  308. mo2:
  309.   in$="X":GOTO trt
  310. mo3:
  311.   in$="R":GOTO trt
  312. mo4:
  313.   in$="L":GOTO trt
  314. mo5:
  315.   in$="MO":GOTO trt
  316. mo6:
  317.   in$="K":GOTO trt
  318. mo7:
  319.   in$="MO":GOTO trt
  320. mo8:
  321.   in$="MSP 10":GOTO trt
  322. mo9:
  323.   in$="MSP 15":GOTO trt
  324. mo10:
  325.   in$="MSP 20":GOTO trt
  326. mo11:
  327.   in$="MSP 25":GOTO trt
  328. mo12:
  329.   in$="MSP 30":GOTO trt
  330. mo13:
  331.    GOSUB mo2:in$="cq cq cq de i0go i0go i0go  "
  332.    in$=in$+in$+in$+" + pse k "+CHR$(4):GOSUB c1:GOTO trs
  333. mo14:   
  334.     GOSUB mo2:in$=cal$+" "+cal$+" de i0go i0go i0go  pse  k"+CHR$(4)
  335.     GOSUB c1:GOTO trs
  336. mo15:
  337.     GOSUB mo2:in$=cal$+" de i0go - ok dr "
  338.     IF nam$="" THEN LET nam$="om"
  339.     in$=in$+nam$+" tks for rprt fm "
  340.     IF qth$="" THEN LET qth$="your qth "
  341.     in$=in$+qth$+" - ur rst "+hrs$+" "+hrs$
  342.     in$=in$+" - here name is joe joe es qth roma roma - rig ts430s amiga 500 pk232 - ant dipole - ok ? "
  343.     in$=in$+cal$+" de i0go + k"+CHR$(4):GOSUB c1:GOTO trs    
  344. mo16:
  345.     GOSUB mo2:in$=cal$+" de i0go - tks fer call "
  346.     in$=in$+"ur rst "+hrs$+" "+hrs$
  347.     in$=in$+" - here name is joe joe es qth roma roma - rig ts430s amiga 500 pk232 - ant dipole - ok ? "
  348.     in$=in$+cal$+" de i0go + k"+CHR$(4):GOSUB c1:GOTO trs    
  349. mo17:
  350.     RETURN
  351. mo18:
  352.     RETURN
  353. mo19:
  354.     GOSUB mo2:in$=cal$+" de i0go - ok dr "
  355.     IF nam$="" THEN nam$="om"
  356.     in$=in$+nam$+" tks fer nice qso - nw hope TO meet you agn - 73 gb - "+cal$+" de i0go +*"
  357.     in$=in$+CHR$(4):GOSUB c1:GOTO trs
  358. fa1:
  359.   in$="FA":GOTO trt
  360. fa2:
  361.   in$="FAXN OFF":GOTO trs
  362. fa3:
  363.   in$="FAXN ON":GOTO trs
  364. fa4:
  365.   in$="L":GOTO trs
  366. fa5:
  367.   in$="PRC OFF":GOTO trs
  368. fa6:
  369.   in$="PRC ON":GOTO trs
  370. fa7:
  371.   in$="PRF OFF":GOTO trs
  372. fa8:
  373.   in$="PRF ON":GOTO trs
  374. fa9:
  375.   in$="PRO OFF":GOTO trs
  376. fa10:
  377.   in$="PRO ON":GOTO trs
  378. fa11:
  379.   in$="SIGNAL":GOTO trs
  380. fa12:
  381.   in$="OK":GOTO trs
  382. fa13:
  383.   in$="BI U":GOTO trs
  384. fa14:
  385.   in$="BI D":GOTO trs
  386. fa15:
  387.   RUN:REM:in$="":GOTO trs
  388.  
  389. am1:
  390.   in$="AM":GOTO trt
  391. am2:
  392.   in$="":GOTO trs
  393. am3:
  394.   in$="":GOTO trs
  395. am4:
  396.   in$="AR":GOTO trs
  397. am5:
  398.   in$="AL":GOTO trs
  399. am6:
  400.   in$="FE":GOTO trs
  401. am7:
  402.   in$="AC":GOTO trs
  403. am8:
  404.   in$="CONV":GOTO trs
  405. am9:
  406.   in$="X":GOTO trs
  407. am10:
  408.   in$="RESTART":GOTO trs
  409. am11:
  410.   in$="TC":GOTO trs
  411. am12:
  412.   in$="":GOTO trs
  413. am13:
  414.   in$="":GOTO trs
  415. am14:
  416.   in$="":GOTO trs
  417. am15:
  418.   in$="":GOTO trs
  419.  
  420. pr1:
  421.   in$="DISP A":GOTO trs
  422. pr2:
  423.   in$="DISP C":GOTO trs
  424. pr3:
  425.   in$="DISP F":GOTO trs
  426. pr4:
  427.   in$="DISP I":GOTO trs
  428. pr5:
  429.   in$="DISP L":GOTO trs
  430. pr6:
  431.   in$="DISP M":GOTO trs
  432. pr7:
  433.   in$="DISP R":GOTO trs
  434. pr8:
  435.   in$="DISP T":GOTO trs
  436. pr9:
  437.   in$="DISP Z":GOTO trs
  438. pr10:
  439.   in$="H":GOTO trs
  440. pr11:
  441.   CLS:RETURN
  442. pr12:
  443.    IF fl%=1 THEN GOSUB chiude:fl%=0:RETURN
  444.    GOSUB apre:IF flx$="" THEN RETURN
  445.    CLOSE #3:OPEN flx$ FOR OUTPUT AS #3:PRINT " Ricevo il file ",flx$:fl%=1:RETURN
  446. pr13:
  447.     IF fl%=2 THEN GOSUB chiude:fl%=0:RETURN
  448.     GOSUB apre:IF flx$="" THEN RETURN
  449.     CLOSE #3:OPEN flx$ FOR INPUT AS #3:PRINT " Trasmetto file ", flx$:fl%=2:RETURN
  450. pr14:
  451.    in$="echo on":GOTO trs
  452. pr15:
  453.     in$="echo off":GOTO trs
  454. pr16:
  455.    MENU OFF:CLOSE:CLEAR:LIST:END
  456. pr17:
  457.    RUN
  458. pr18:
  459.    CLOSE:SYSTEM
  460. pr19:
  461.    SAVE "COMUA":SAVE"COMUA-A",A:RUN
  462. apre:
  463.    INPUT " Nome del file ? (ret=ret) 0-9 apre ram ",flx$:IF flx$="" THEN RETURN
  464.    IF ASC(flx$)<58 AND ASC(flx$)>47 THEN flx$="RAM:FILE"+flx$  
  465.    RETURN
  466. chiude:
  467.     CLOSE #3:PRINT:PRINT  " Ho chiuso il file ",flx$:RETURN
  468.   
  469.  
  470. lo1:
  471.    GOSUB datai:RSET d$=dz$
  472.    star$=MID$(DATE$,4,2)+"/"+MID$(DATE$,1,2)+"/"+MID$(DATE$,9,2)  
  473.    star$=star$+" "+MID$(TIME$,1,2)+MID$(TIME$,4,2):RETURN
  474.    in$="":GOTO trs
  475. lo2:
  476.    LINE INPUT;" Mode-fq p=144 pk ";mofq$:IF mofq$="p"THEN mofq$="144 Packet"
  477.    IF mofq$<>"" THEN LSET o$=UCASE$(mofq$)
  478.    RETURN
  479. lo3:
  480.   LINE INPUT;" Call g=go ";cal$:IF cal$="g" THEN cal$="I0go"
  481.   IF cal$<>"" THEN RSET c$=UCASE$(cal$)
  482.   RETURN
  483. lo4:
  484.   LINE INPUT;" Name ";nam$
  485.   IF nam$<>"" THEN RSET n$=UCASE$(nam$)
  486.   RETURN  
  487. lo5:  
  488.   LINE INPUT;" Qth r=Roma ";qth$:IF qth$="r" THEN qth$="Roma"
  489.   IF qth$<>"" THEN RSET q$=UCASE$(qth$)
  490.   RETURN
  491. lo6:
  492.   LINE INPUT;" His rst ";hrs$
  493.    RETURN
  494. lo7:
  495.   LINE INPUT;" My rst ";mrs$
  496. lo71:  
  497.    IF mrs$<>"" THEN RSET r$=mrs$+" "+hrs$:RETURN
  498. lo8:
  499.    sto$=MID$(TIME$,1,2)+MID$(TIME$,4,2)         
  500.    RSET f$=sto$:RETURN    
  501. lo9:
  502.   PRINT :GOSUB kas:RETURN
  503. lo10:
  504.    GOSUB elin:RETURN
  505. lo11:
  506.    GOSUB nw1:GOSUB kas:GOSUB prosi:RETURN
  507. lo12:
  508.    GOSUB nlin:RETURN
  509. lo13:
  510.    mrs$=" 59":hrs$=" 59":GOSUB lo71:RETURN
  511. lo14:
  512.    mrs$="599":hrs$="599":GOSUB lo71:RETURN
  513. lo15:
  514.    oub=0:GOSUB alin:RETURN
  515. lo16:
  516.    oub=1:GOSUB alin:RETURN
  517. lo17:
  518.    GOSUB apre:IF flx$="" THEN RETURN
  519.    CLOSE #3:OPEN flx$ FOR INPUT AS #3
  520. loop1:  
  521.    LINE INPUT #3,in$:PRINT in$:IF EOF(3)=-1 THEN GOSUB chiude:RETURN
  522.    GOTO loop1
  523. lo18:
  524.     GOSUB tempo:RETURN
  525. lo19:
  526.     FILES"RAM:":RETURN
  527.  
  528. trt:
  529.   in$=CHR$(3)+in$
  530. trs:
  531.    PRINT #1,in$:RETURN
  532.  
  533. datai:
  534.    dt$=MID$(DATE$,9,2)+MID$(DATE$,1,2)+MID$(DATE$,4,2)
  535.    dz$=dt$+MID$(TIME$,1,2)+MID$(TIME$,4,2)+MID$(TIME$,7,2)
  536.    RETURN
  537.  
  538. alin:
  539.  CLS:GOSUB chef:CLS:pag=1:pgg=1:GOSUB alio1
  540.  FOR j%=1 TO (k%-1):GET #4,j%
  541.  pag=(j%/70):IF pag>pgg THEN pgg=pgg+1: GOSUB alio2:k$="":GOSUB prs:k$="":GOSUB prs:k$="":GOSUB prs:GOSUB alio1
  542.  GOSUB colo:GOSUB kas
  543. alio: 
  544.  IF MOUSE (0)=1 THEN RETURN
  545.  NEXT j%:GOSUB alio2:RETURN
  546. alio1:
  547.  GOSUB kss:GOSUB prs:k$="":GOSUB prs:GOSUB kssa:GOSUB prs 
  548.  RETURN
  549. alio2: 
  550.  k$="":GOSUB prs:GOSUB kssb:GOSUB prs
  551.  RETURN  
  552. blin:
  553.  CLS:FILES"df0:":INPUT"File da cancellare   ";x$:IF x$=""THEN GOTO indice 
  554.  LET x$="df0:"+x$:PRINT "cancello ";x$:KILL x$
  555.  GOTO indice
  556. clin:
  557.  CLS
  558.  GOTO indice
  559. dlin:
  560.  CLS:FILES"df0:":INPUT"File da caricare ?  p=prova ",x$:IF x$=""THEN GOTO indice
  561.  IF x$="p"THEN LET x$="prova"
  562.  CLOSE:LET x$="df0:"+x$:LOAD x$,r
  563. elin:
  564.  GOSUB nw1:INPUT"Record da correggere 0=ind ";j%
  565.  IF j%=0 THEN RETURN 
  566.  GET #4,j%:GOSUB kas
  567.  LINE INPUT "Datetime aammgghhmm ",dz$:IF dz$<>"" THEN RSET d$=dz$
  568.  GOSUB lo2:GOSUB lo3:GOSUB lo5
  569.  GOSUB lo4:GOSUB lo6:GOSUB lo7
  570.  LINE INPUT " End time ",sto$:IF sto$<>"" THEN RSET f$=sto$
  571.  GOSUB kas:PUT #4,j%:GOSUB nw2:RETURN
  572.  
  573.  
  574.  du$=d$:GOSUB corre
  575.  IF d$<>du$ THEN PUT #4,(k%+1):recc%=j%:FOR j%=recc% TO (k%+1):GET #4,(j%+1):PUT #4,j%:NEXT j%:k%=k%-1:GET #4,(k%+1):GOTO prosi                         
  576.  PUT #4,j%:GOSUB kas
  577.  GOTO elin
  578. flin:
  579.  CLS:FILES"df0:"
  580.  GOTO indx
  581. glin:
  582.  GOTO indice
  583. hlin:
  584.  GOTO indice
  585. ilin:
  586.  GOSUB nw1
  587. ilina: 
  588.  PRINT "record no.";k% 
  589.  GOSUB corre
  590. prosi:
  591.  PUT #4,k%:k%=(k%+1):du$=d$:GET #4,(k%-2):IF du$>=d$ THEN reco%=k%-1:GOTO prose
  592.  FOR j%=1 TO (k%-2):GET #4,j%:IF  d$>du$ THEN reco%=j%:GOTO prosa
  593.  NEXT j%
  594. prosa: 
  595.  FOR j%=k% TO reco% STEP -1
  596.  GET #4,j%:PUT #4,(j%+1)
  597.  NEXT j%:GET #4,(k%):PUT #4,reco% 
  598. prose: 
  599.  GET #4,reco%:j%=reco%:GOSUB kas
  600.  REM:INPUT"return per continuare ",x$
  601.  REM:IF x$=""THEN GOTO ilina ELSE GOSUB ultimo
  602.  GOSUB ultimo::GOSUB nw2:RETURN
  603. jlin:
  604.  RETURN
  605. llin:
  606.  LIST:END
  607.  GOTO indice
  608. mlin:
  609.  RETURN
  610. sera:
  611.  RETURN
  612. nlin:
  613.  GOSUB nw1:INPUT"Record da cancellare  ";recc%
  614.  j%=recc%:GET #4,j%:GOSUB kas
  615.  FOR j%=recc% TO k%+1:GET #4,(j%+1):PUT #4,j%
  616.  NEXT j%:k%=k%-1
  617.  GOSUB nw2:RETURN
  618. olin:
  619.  CLS:INPUT"Record da duplicare ";j%:GET #4,j%:GOSUB kas:GOSUB corre:GOTO prosi
  620.  GOTO indice
  621. plin:
  622.  CLS:PRINT "scambio linee "
  623.  INPUT"1 linea ";aa%:INPUT"2 linea ";ab%
  624.  GET #4,aa%:PUT #4,(k%+2):GET #4,ab%:PUT #4,aa%
  625.  GET #4,(k%+2):PUT #4,ab%
  626.  GOTO indice
  627. qlin:
  628.  RUN
  629.  GOTO indice
  630. rlin:
  631.  SYSTEM
  632.  GOTO indice
  633. slin:
  634.  CLOSE:SAVE"df1:COMUA":RUN
  635. tlin:
  636.  CLS:INPUT"1=seriale on ",oua
  637.  INPUT"1=stampante on ",oub:IF oub=1 THEN GOSUB chef
  638.  INPUT"1=rosso on ",ouc
  639. tali:
  640.  INPUT"attrib sta ",x$:IF x$="" THEN GOTO indice
  641.  CLOSE #2:OPEN"PRT:" FOR OUTPUT AS #2
  642.  IF LEN(x$)>4 THEN PRINT #2,x$:CLOSE #2:GOTO tali
  643.  PRINT #2,CHR$(27)+"["+x$:CLOSE #2:GOTO tali 
  644.  GOTO indice 
  645. tempo:
  646.  gio$="          "+MID$(DATE$,4,2)+"/"+MID$(DATE$,1,2)+"/"+MID$(DATE$,7,10):PRINT gio$;"  ORE ";TIME$;" BAS";FRE(0);" MEM";FRE(-1);" Qso. no.";k%-1 
  647.  RETURN
  648. kss:
  649.  k$="LOG di I0GO, Giuseppe Riera, Via Tevere 15 Roma, Lic.1323 pat.1710 PAGINA n."+STR$(pgg):RETURN
  650. kssa:
  651.  k$="qso n. data e ora  Mhz modo   c a l l  mio suo      q t h     n o m e  fine":RETURN
  652. kssb:
  653.  k$="Potenze impiegate: 25W in VHF, 150W in HF. ore in CET    Firma:________________":RETURN
  654.  
  655. kas:  
  656.  mesi=VAL(MID$(d$,3,2)):IF mesi<>meso THEN GOSUB amese:meso=mesi
  657.  jj$=MID$((STR$(j%)),2):k$=SPACE$(4-LEN(jj$))+jj$+" "
  658.  k$=k$+MID$(d$,5,2)+"/"+MID$(d$,3,2)+"/"+MID$(d$,1,2)+" "+MID$(d$,7,4)
  659.  k$=k$+" "+o$+" "+c$+" "+r$+" "+q$+" "+n$+" "+f$
  660.  
  661.  GOSUB prs
  662.  RETURN
  663. amese:
  664.  RETURN
  665. prs:
  666.  PRINT k$:IF oua=1 THEN CLOSE #1:OPEN"com1:1200,n,8,1,xon" AS #1:PRINT #1,k$ 
  667.  IF oub=1 AND oucc=1 THEN k$=CHR$(27)+"[35m"+k$+CHR$(27)+"[30m"
  668.  IF oub=1 THEN CLOSE #2:OPEN "PRT:" FOR OUTPUT AS #2:k$=CHR$(27)+"[3w"+CHR$(27)+"[2w"+CHR$(27)+"[0z"+k$:PRINT #2,k$:CLOSE #2
  669.  RETURN 
  670. indx:
  671.  INPUT"  premere RETURN per tornare all' indice  ",x$:GOTO indice
  672. wido:
  673.  w$=STR$(x#):w$=MID$(w$,2):le%=LEN(w$):FOR e%=le% TO 1 STEP(-1)
  674.  IF e%=le%-3 OR e%=le%-6 OR e%=le%-9 THEN LET w$=MID$(w$,1,e%)+"."+MID$(w$,(e%+1),(le%-e%+1))
  675.  NEXT e%:IF x#<0 THEN LET w$="-"+w$
  676.  RETURN          
  677. mese:
  678.  RETURN
  679. altro:
  680.   dt$=MID$(DATE$,9,2)+MID$(DATE$,1,2)+MID$(DATE$,4,2)
  681.   RETURN
  682. corre:  
  683.  RETURN
  684. colo:
  685.  GOSUB altro
  686.  RETURN
  687. c1:
  688.   COLOR 3:PRINT in$:COLOR 1:RETURN
  689.  
  690. chef:
  691.  IF oub=1 THEN INPUT"    ACCENDERE  LA STAMPANTE !!!!!!!  n=no ",wx$
  692.  IF UCASE$(wx$)="N" THEN oub=0
  693.  RETURN
  694. ultimo:
  695.  oo$="*":LSET o$=oo$:dd$="zzzzzz":LSET d$=dd$:PUT #4,k%:PUT #4,(k%+1)
  696.  RETURN
  697. nonce:
  698.  CLS:PRINT "Non vi sono record sufficienti nel file ";fi$
  699.  PRINT "per consentire l'ordinamento automatico in ordine di"
  700.  PRINT "data occorrono almeno 4 record (Da cancellare dopo)"
  701.  PRINT "che il computer inserisce automaticamente digitando una s"
  702.  INPUT"il solo return torna all'indice ",x$:IF UCASE$(x$)<>"S" THEN RETURN
  703.  FOR k%=1 TO 4 :LSET d$="800101":LSET c$="PROVA GR":RSET o$="0":PUT #4,k%
  704.  NEXT k%:GOSUB ultimo:j%=k%:RETURN
  705.  
  706. ero:
  707.  IF fin%=1 THEN GOSUB fines2:GOTO ero1
  708.  GOSUB fines1
  709. ero1: 
  710.  PRINT "Errore n.";ERR:IF ERR=53 THEN PRINT "File inesistente !"
  711.  MENU ON:RESUME klin
  712. fines1:
  713.  SCREEN 1,640,250,2,2
  714.  WINDOW 2, "COMUA V1.2 per pk 232" ,,0,1
  715.  RETURN
  716.  
  717. fines2:
  718.  SCREEN 1,640,500,2,4
  719.  WINDOW 2, "COMUA V1.2 per pk 232" ,,0,1
  720.  RETURN
  721.  
  722.  
  723.  
  724.  
  725.  END
  726.  
  727.